home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir42
/
card_ce.zip
/
PROCURA.PRG
< prev
next >
Wrap
Text File
|
1994-07-23
|
2KB
|
77 lines
use card
* use b:card
stor spac(15) to compp, fnamep, lnamep, teamp
stor spac(4) to yearp, cardnp
set color to r+
@ 06,20 say 'Company Name.......(A)--> ' get compp pict '!!!!!!!!!!!!!!!'
@ 08,20 say 'Year...............(B)--> ' get yearp
@ 10,20 say 'Player First Name..(C)--> ' get fnamep pict '!!!!!!!!!!!!!!!'
@ 12,20 say 'Playes Last Name...(D)--> ' get lnamep pict '!!!!!!!!!!!!!!!'
@ 14,20 say 'Team Name..........(E)--> ' get teamp pict '!!!!!!!!!!!!!!!'
@ 16,20 say 'Card Number........(F)--> ' get cardnp pict '!!!!'
@ 21,01 say 'For combination -- 1 (A/B) 2 (A/D) 3 (A/B/D) 4 ì
(A/B/F) Q (Go to MAIN MENU)'
set color to w+
@ 02,30 say 'S E A R C H C A R D'
set color to gr+
@ 06,40 say 'A'
@ 08,40 say 'B'
@ 10,40 say 'C'
@ 12,40 say 'D'
@ 14,40 say 'E'
@ 16,40 say 'F'
@ 21,20 say '1'
@ 21,29 say '2'
@ 21,38 say '3'
@ 21,49 say '4'
@ 21,60 say 'Q'
set color to w
stor ' ' to op
set color to g
@ 22,01 say 'Fill any or all then press letter or number for ì
search --> '
set color to gr+
read
@ 22,49 say 'SEARCH --> ' get op
set color to w+
read
if uppe(op) = "Q"
clear gets
return
endif
if uppe(op) = "A"
loca for comp=compp
endif
if uppe(op) = "B"
loca for year=yearp
endif
if uppe(op) = "C"
loca for fname=fnamep
endif
if uppe(op) = "D"
loca for lname=lnamep
endif
if uppe(op) = "E"
loca for team=teamp
endif
if uppe(op) = "F"
loca for cardn=cardnp
endif
if uppe(op) = "1"
loca for comp=compp .and. year=yearp
endif
if uppe(op) = "2"
loca for comp=compp .and. lname=lnamep
endif
if uppe(op) = "3"
loca for comp=compp .and. year=yearp .and. lname=lnamep
endif
if uppe(op) = "4"
loca for comp=compp .and. year=yearp .and. cardn=cardnp
endif
do while .not. eof()
do mostra
cont
endif
enddo
return